brains <- structure(list(body = c(1.35, 465, 36.33, 27.66, 1.04, 11700, 
2547, 187.1, 521, 10, 3.3, 529, 207, 62, 6654, 9400, 6.8, 35, 
0.12, 0.023, 2.5, 55.5, 100, 52.16, 87000, 0.28, 0.122, 192), 
    brain = c(8.1, 423, 119.5, 115, 5.5, 50, 4603, 419, 655, 
    115, 25.6, 680, 406, 1320, 5712, 70, 179, 56, 1, 0.4, 12.1, 
    175, 157, 440, 154.5, 1.9, 3, 180)), .Names = c("body", "brain"
), class = "data.frame", row.names = c("1", "2", "3", "4", "5", 
"6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", 
"17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", 
"28"))
